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1. Einleitung 


Um Mikroprozessoren zur besseren, flexibleren und preisgünstigeren Lösung von Aufgaben der Di- 
gital-Elektronik einsetzen zu können, benötigt man zunächst eine Einrichtung zum Entwickeln u. 
Austesten von Programmen - ein Entwicklungs-System. 


Das 7-Segment-Hexadezimal-Ausbaustadium des ELEKTOR-SC/MP-Mikrocomputers zusammen 
mit der Betriebs-Software ‚„ ELBUG ” stellt bereits ein einfaches Entwicklungssystem dar. Die et- 
was bescheidene Architektur und Befehlsstruktur des SC/MP wird durch dieses Gesamt-System so 
erweitert (LIFO-Stack, Block-Umlade-Kommando, 8 Interrupt-Eingänge usw.), daß das Komfort- 
Niveau wesentlich teurerer uP’s erreicht wird. 


Die weiteren, in ELEKTOR geplanten Artikel (RAM-Erweiterungs-Karten, PROM-Programmier- 
Platine, ASCII-Keyboard und TV-Interface) vervollständigen das System soweit, daß die vorhan- 
dene SC/MP-residente Software(z.Zt. zwei Assembler-Versionen und BASIC-Interpreter) voll aus- 
genutzt werden kann, ohne teure Peripherien, wie Sichtgeräte, Drucker, Massenspeicher usw. zu 
benötigen. 


Es hat sich als sinnvoll erwiesen, Programme für einen bestimmten Mikroprozessor auf einem Mi- 

krocomputer, der eben diesen uP als CPU beinhaltet, zu entwickeln weil: 

- der Anwender nicht gleich zwei verschiedene Befehlssätze (Programmiersprachen) erlernen 
muß 

- die fertigen Programme auf dem Entwicklungssystem, vor Erstellen der Hardware für die be- 
treffende Anwendung bereits getestet werden können und weil 

- beim Aufbau dieses Systems schon spezifische Kenntnisse für den betreffenden uP-Typ erwor- 
ben wurden. 


Grundsätzlich kann man, wenn Geschwindigkeit, optimale Speicherausnutzung und erforderlicher 
externer Hardware-Aufwand außeracht gelassen werden, mit jedem Mikroprozessor alles machen. 
Für den durchschnittlichen ELEKTOR-Leser dürften Anwendungen mit relativ kleinen Program- 
men, bei welchen die Speicherausnutzung nicht ins Gewicht fällt, ebenso die Geschwindigkeit, 
dafür aber ein Minimum an Hardware erwünscht ist, am interessantesten sein. Und gerade dafür 
ist der SC/MP prädestiniert. 


Der Aufbau des Entwicklungssystems ist keine unproduktive „, art pour l’art ”’, sondern der erste 
Schritt. 
Der zweite ist die Lösung, zunächst einfachster Aufgaben mit eigenen Programmen. 


Viel Erfolg! 
Der Verfasser 


2. Arbeiten mit der Elbug 


2.1 


Der Hardware-Aufbau bestehend aus CPU-Platine, Hex-I/O-Platine, Input-Unit (Europa-Platine 
mit dem Sockel für das 3. PROM) und Kassetten-Interface sollte mit Hilfe der RAM-I/O-Kar- 
te und den entsprechenden Programmen aus ELEKTOR getestet sein und einwandfrei funk- 
tionieren. Nun wird, durch Umlöten der Drahtbrücken die CPU-Platine und die Input-Plati- 


ne auf Page 9 (Adr. 0000 bis OFFF) gelegt. Die RAM-I/O-Karte kann auf Page 1 gelegt werden. 


Sie ist für die Monitor-Software nicht erforderlich; kann aber als preiswerte „, Peripherie 
mit dikatischem Wert oder als Einheit mit je 8 I/O-Leitungen (anstatt Datenschalter und LED) 
weiterhin Verwendungfinden. 


Die 3 PROM’s werden nun unter strengster Beachtung der Vorsichtsmaßnahmen für MOS- 
Bauteile in die entsprechenden Sockel montiert: 


PROM 1 :.4::....3% IC3 CPU-Platine 
PROM 2..:4....% IC2 CPU-Platine 
PROM3.......... IC 14 Input-Unit 


Beim Anlegen der Versorgungsspannungen ( —12 V jetzt auch erforderlich) erscheint 
. ELBUG "' auf dem Display. Falls nicht, liegt ein Fehler in der Hardware vor: „ JMP 2.1.” 


Das Display ist funktionell in 4 Felder aufgeteilt: 


Digit O und 1 ( die beiden rechten Anzeigen ) = Datenfeld 
Digit 2 bis 5 (die vier mittleren Anzeigen ) = Adressfeld 
Digit 6 und 7 (die beiden linken Anzeigen ) = Kommandofeld 


Dezimalpunkte auf dem Display bedeuten, daß das Programm eine Eingabe über die Tastatur 
erwartet; die beiden Punkte von „,.. ELBUG '’ verlangen das Betätigen einer Kommando-Ta- 
ste. 


Diese sind innerhalb des Pgrogramms wie folgt definiert: 


FÖ = RUN 

EdB =  MODIFY 

DdO = SUBTRAKTION 

CE = KASSETTE 

BÖ = _BLOCK-TRANSFER 
AB = _CPU-REGISTER 

9 = DOWN 

8 = UP 


Die beiden letzten sind keine echten Kommmando-Tasten, sondern „, Suffix "'-Tasten, welche 
nach Betätigung einer Kommando-Taste eine bestimmte Bedeutung haben, ähnlich wie die von 
manchen Taschenrechnern bekannten „, Präfix '-Tasten, die vor den eigentlichen Kommando- 
Tasten zu betätigen sind. 


2.2 Modify-Kommando 
Wird nun (nach „.. ELBUG ”) die Taste „ MODIFY ’' gedrückt, so erscheint auf dem Display 
„MO .... ". Das Programm erwartet eine Adresseingabe über das hexadezimale Tastenfeld. 
Nach Eingabe des letzten Adress-Digits erscheint sofort auch der Inhalt dieser Adresse auf dem 
Datenfeld des Display. Nun hat der Benutzer 4 Möglichkeiten: 


— Er will den Inhalt dieser Adresse ändern. Diesgeschieht durch Eingabe des gewünschten 
neuen Bytes auf der Hex-Tastatur. Nach der ersten Hex-Taste erscheint das betreffende 
Hex-Zeichen auf Display 1, Display O erlischt. Nach der 2. Hex-Taste erscheint das Hex- 
Zeichen auf Display O, aber nur dann, wenn man in die betreffende Adresse auch tat- 
sächlich etwas hineinschreiben kann. Unbeschaltete Adressbereiche (werden von der CUP 
als X’FF interpretiert) oder PROM-Adressen melden sich wieder mit ihrem (nicht über- 
schreibbarem) Inhalt. | 
Hat man sich vertippt, so kann man beliebig oft ein anderes Byte (kein einzelnes 
Hex-Digit = 1/2 Byte) auf die gleiche Adresse eintasten. 


Man will den Inhalt der nächsthöheren Adresse auf die Anzeige bekommen: „ UP" 
Taste. Natürlich auch dann, wenn der Inhalt der vorherigen Adresse nicht mit Hex-Ein- 
gaben geändert wurde. Auf diese Weise kann recht komfortabel ein Speicherbereich 


durchgelesen werden. 


— Mit der „ DOWN " - Taste ruft man den Inhalt der nächstniedrigeren Adresse ab. 


Die Modify-Routine kann nur mit NRST verlassen werden: „.. ELBUG ". 


Mit Modify bewegt man sich immer in der gleichen Page. Nach 4 FFF folgt 4 dd. Auf Adr. 
5000 kommt man mit NRST, MODIFY und5Q® GG. 


2.3. Run-Kommando 


Hat man z.B. mit Modify ein Programm in ein RAM-Bereich geladen und will es starten, be- 
dient man sich dieses Kommandos. 

Zunächst muß mit NRST wieder „ .. ELBUG "’ auf das Display gebracht werden. Nach Betä- 
tigen der RUN-Taste erscheint „ RU ....”” auf dem Display Die Startadresse des Programms 
(die Adresse des ersten Befehlsbytes) wird nun eingetastet. Zum eigentlichen Starten kann je- 
de beliebige Taste (Hex oder Kommando) benutzt werden. Beim Loslassen wird ‚„ RU’ auch 
auf Digit O—-1 des Display geschrieben und das Programm gestartet. „ RU ADR RU ” bleibt 
stehen, sofern das betreffende Programm nicht selbst auf das Display zugreift. Geschieht in 
dem angesprungenen Programm ein XPPC 3 (programmiert oder durch Interrupt) bevor PTR3 
neu geladen ist, so erscheint ‚ ..ELBUG ’ auf dem Display; Zeichen dafür, daß das User- 
Programm verlassen wurde und die CPU auf ein neues Kommando wartet. 


2.4. Hexadezimale Subtraktion 


Dieses Kommando dient zum Errechnen von Displacement-Werten für eigene Programme, als 
Assemblier-Hilfe. 

Nach Drücken dieser Taste zeigt das Display: „ SH.... ”’ = Subtraktion, hexadezimal. (Nicht 
„BH....”, in „ 7-Segment-Schrift ”’ sehen „ 5’ und „S’ nur gleich aus). 


Jetzt verlangen die Dezimalpunkte keine Adresse, sondern den Minuenden. Wenn dieser ein- 
gegeben ist, erlöschen Digit 6 und 7 und auf Digit 1 erscheint ein Minus-Zeichen. Es folgt die 
Eingabe des Subtrahenden. Die Differenz bekommt man durch Betätigen einer beliebigen 
Taste. Sie ist mit einem „, = "" versehen. Hier läuft das Programm in eine tote Schleife: 


JMP: 
JMP JMP 90FE 


Diese kann nur mit NRST verlassen werden. 
Negative Differenzen erhält man, so wie sie gebraucht werden: als Zweier-Komlement. 


6. Kassetten-Routinen 
Zur Ausgabe des Inhaltes eines Speicherbereichs geht man so vor: 
NRST „. ELBUG 
KA-Tatte „CA.... ” 


Jezt kann man mit der Modify-Taste die gewünschte Ausgabegeschwindigkeit eingegeben wer- 
den, s. Tabelle. 


MO-Taste „CA.... MO” 
SPEED (HexKB) „„ CaDOXXMO " 


Wenn von dieser Möglichkeit kein Gebrauch gemacht wird, so erfolgt die Ausgabe mit 600 
Baud (=Bit/sec). Man kann also ohne „, Modify Speed " fortfahren. 


Beliebige Taste (außer MO ‚UP,DOWN) GCa:,8d” 
Anfangsadr. des Speicherbereichs: „ Caxxxx.. 
Endadr. des Speicherbereichs (Hex) „Cayyyy.. 


Spätestens jetzt muß der Kassetten-Rekorder angeschlossen, auf Aufnahme eingestellt und ge- 


startet werden. Vor dem nächsten Schritt sollte der Rekorder bereits 1 min laufen, damit ein 
Stück hohe Frequenz (= log 1 = Stopbit) aufgenommen wird. Dieses verlängerte Stopbit wird 
beim Laden von Kassette dringend benötigt. 


DOWN nach einiger Zeit, wenn der Datenblock fertig ausgegeben ist, erscheint auf 
dem Display „ .. ELBUG 


Die CPU wartet auf das nächste Kommando. 


Bei der Ausgabe wird die Anfangs- und Endadresse auf das Band geschrieben. Außerdem wird 
nach je 32 Datenbytes eine Checksumme (= Arithmetische Summe dieser 32 Bytes, unter 
Außerachtlassung des Übertrags, also nur 1 Byte) an die Kassette ausgegeben. Der letzte Da- 
tenblock kann kürzer sein als 32 Byte (ist aber trotzdem mit einer Checksumme versehen). 


Es ist erlaubt, Datenblocks auszugeben, welche Page-Grenzen überschreiten. Z.B. Anfangadr. 
= OFFO,Endadr. = 1654. 


Laden von der Kassette: 


NRST „„. ELBUG ” 
KA-Tatte „Ca.... ” 


Spätestens hier muß der Rekorder laufen und in seinem Lautsprecher das o.a. verlängerte 
Stopbit zu hören sein. 


UP-Taste nach einer Weile, wenn der Datenblock (auch hörbar) zu Ende ist,erscheint 
auf dem Display wieder „.. ELBUG ”. 


Wenn irgend etwas nicht gestimmt hat — Band beschädigt, Kassetten Interface nicht in Ord- 
nung usw. — erscheint noch während der Datenblock im Lautsprecher zu hören ist 


‚‚ Ca Error ’’ auf dem Display. 


Das bedeutet, daß die selbst errechnete Checksumme während der Datenübernahme nicht mit 
der Checksumme vom Band übereinstimmt. Nach „, Error ” läuft das Programm in eine tote 
Schleife, die nur mit NRST verlassen werden kann. Wenn einige Wiederholungsversuche (der 
Fehler kann auch bei der Ausgabe an die Kassette geschehen sein) nichts bringen, müssen der 
Logiktester und der Lötkolben in Aktion treten. ' 


Das auf diese Weise geladene Programm wird genau an den Adressen stehen, von wo esan 
die Kassette ausgegeben wurde; die Anfangs- und Endadressen stehen ja auf dem Bandl 
Soll ein Datenblock von der Kassette auf andere Adressen geladen werden, wird folgender- 
maßen vorgegangen: 


NRST „.. ELBUG ” 


KA-Taste a © 


Beliebige Taste 
(außer MO, UP, DOWN) „Ca... ad” 


Anfangsadr. „CaxxXrx. 

Endadr. „Cayyyy.. " R 
Rekorder laufen lassen 

UP 


Wenn das Interface total defekt ist und ein ewiges Startbit an SIN anliegt, erscheint kein Er- 
ror weil d+@ = ® und die Checksumme ja stimmt. | 

Liegt ein dauerndes Stopbit an SIN, so kommt die Kassettenroutine: erst gar nicht in Gang, ob- 
wohl der Rekorder schon längst fertig. ist. 


Wenn nur ein Teil eines.Blocks von der Kassette geläden wird (z.B. auf Kassette sind Daten 
von 1F®@ bis 1 FFF und der erste Teil dieses Blocks soli auf 1F2@ bis 1F8@ geladen wer- 
den), so erscheint nach korrekt beendeter Übernahmie doch „, Error ”’ weil naturgemäß die 
letzte Checksumme nicht stimmt. 


Bei der bisherigen Arbeitsweise wurde angenommen, daß der Datenblock mit 600 Baud an 
die Kassette ausgegeben wurde. Ist das nicht der Fall, so muß auch hier über Modify die tat- 
sächliche Geschwindigkeit eingegeben werden: 


NRST, KA-Taste, MO-Taste, SPEED, (beliebige Taste, Anfangsadr. Endadr.) 
Rekorder laufen lassen und UP-Taste. 


2.6 Block-Transfer-Kommando 


Während des Austestens von Programmen tritt oft die Situation auf, daß an irgendeiner Stel- 
le noch Befehle eingefügt werden müssen oder daß einige Befehle überflüssig sind. Um nicht 
noch einmal mühe- und fehlervoll das restliche Programm ab dieser Stelle eintippen zu müs- 
sen, bedient man sich dieses Kommandos. 


Handhabung: 

NRST „.. ELBUG " 
Transfer-Taste Bla © 
Anfangsadr. des Blocks „BLXXXX .. ae 
Endadr. des Blocks „Blyyyy.. 
Neue Anfangsadr. „Blzzzz .. 


Beliebige Taste „.„. ELBUG” 


Damit ist der Block umgeladen. 


Ein Umladen auf eine andere Page ist möglich, aber nicht von oder auf einen Bereich, der 
eine Page-Grenze überschneidet. Das wäre auch nicht sinnvoll, da ein Programm an der Pa- 
ge-Grenze nur dann weiterläuft, wenn dort mit einem XPPC dieser Sprung ermöglicht wird. 
Die neue Anfangadr. kann kleiner oder größer sein als die ursprüngliche; ein aufwärts oder 
abwärts-Umladen ist demnach möglich. 


2.7. CPU-Register--Kommando 


Dieses Kommando ist auch eine Debug-Hilfe. Damit kann an einer beliebigen Stelle eines zu 
testenden Programms der Inhalt der CPU-Register auf das Display gebracht werden. Das be- 
treffende Programm wird in ein RAM-Bereich geladen. Dann: 


NRST 
CPU-Taste 
Startadr. User-Progr. 


„. ELBUG ”" 
„CP; 2 
„CPxxxx... 


Stopadr.(Byte nach dem Befehl der als letzter 


ausgeführt werden soll) 
Taste A 
Taste E 
Taste 5 (5 = S 7-Segm.) 
Taste 1 
Taste 2 


„CPyyyy.. " 


„CP AA” AA=(A) 
„CP EEE” EE=(E) 

„cp 55° = (SR) 
„CP 1111” = (PTR 1) 
„CP 2222” = (PTR 2) 


Die Schleife zum Abfragen dieser 5 Tasten (A, E, 5, 1, 2) wiederholt sich endlos und kann 
nur mit NRST verlassen werden. Zu beachten ist, daß das Programm nicht läuft wenn (PTR3) 
im User-Programm verändert wird und daß nachher in der Stopadresse nicht der vorherige 
Inhaltsondern X’3F(= XPPC 3) steht. Dieses muß vor dem weiteren Austesten wieder in den 
ursprünglichen Zustand gebracht werden (mit Modify). 


ADRESSE 


OFDF 
OFDE 
OFDD 
OFDC 
OFDB 
OFDA 
OFD9 
OFD8 
OFD7 
OFD6 
OFDS 
OFD4 
OFD3 
OFD2 
OFD1 

OFDO 
OFCF 
OFCE 
OFCD 
OFCC 
OFCB 
OFCA 
OFC9 


RAM-Organisation des LIFO-Stack 


REGISTER STATUS 
AC ö 

E 

SR 

PTR I L 

PTR I H 

PTR 2 L ERSTER STATUS 
PTR 2 H 

PTR 3 L 

PTR 3 H 

ROUTAD L 

ROUTAD H 

AC 

E 

SR 

PTR I L 

PTR 1 H 

PTR 2 L - ZWEITER STATUS 
PTR 2 H 

PTR 3 L 

PTR 3 H 

ROUTAD L 

ROUTAD H 

AC 


DRITTER STATUS usw. 


Format der Daten auf Kassette 


Startad. higher Byte 


Endadr. higher Byte 


DATA 


32 Byte 
DATA 


DATA 


32 Byte 


Letzter Block 
32 Byte (oder weniger) 


Tabelle mit den Werten zum Laden des Bytes „ SPEED ” für verschiedene Geschwindigkeiten 
der Kassetten-Routinen. 


Geschwindigkeit SPEED 
2400 Bit/sec 0002 
1200 BoB8 
600 0815 (wird vom ELEBUG automatisch geladen) 
300 @&ansas City) QB2E 
110 (TTY) B@85 


* Die Werten gelten für SC/MP I mit 1 MHz-Quarzoder SC/MP II mit 2 MHz-Quarz. Für SC/MP II 
mit 4 MHz-Quarz gelten doppelte Geschwindigkeiten oder die o.a. Werte halbiert (Vorsicht es 


sind Hex-Zahlen.) 


3. Listing 


s pe d-8084 inning a.a. Lleitenstr. 24 zerling tel. (908143) 1315 
‚title 'elpbug’ 
‚page ’stack-routinen 
‚Local /abgrenzung eines * $’-adr.-bereichs 
0700 displ = 0700 /e.a. des display 
offf stakpt = offf /2 byte f. aktuellen stackpointerstand 
Offd routad = DOffd /2 byte adresse der subroutine 
Offb stfull = Offb /stack-full’-flag 
offa stdeep = @ffa /1 byte f.einstellbare stacktiefe 
off9 stkeff = off9 /aktueller stack-fuellstand 
off8 ac = @ff8 /zwischenspeicher fuer (ac) 
off7 ptr = off7 /zwischenspeicher fuer (pointer) 
orf5 speed = Off5 /geschwindigkeit kassetten-routinen 
DOfe® stkbse = Dfe® /! stack-base’ 
DD . 
stack: /programm-anfang 
DOOD ©8 nop 
8001 c415 Ldi x’ 15 /kassetten-geschwindigkeit auf 
0003 c8fl st speed /6808 bit/sec voreinstellen 
0005 c4e® Ldi L(stkbse) / ram-stackpointer’ auf ’stack- 
DO0T c8f7 st stakpt base’ stellen 
0009 c4of Ldi h(stkbse) 
DOOb c8f2 st stakpt-1 
OODd c4DD l\di ®0 
DoDOf c8e9 st stkeff /stack-zaehler auf ® stellen 
@011 c8e9 st stfull /stack-full-anzeige = ® 
0013 9903d jmp $1 /eigentliches *"elbug’ anspringen 
pulls; /status aus stack ziehen’ 
0015 cDe9 Id stakpt /ptr 1 mit aktuellem stackpointer- 
2017 31 xpal 1 /stand laden 
0218 cDe5 L\d stakpt-1 
o0D1a 35 xpah 1 
oo1lb c591 Ld ei() /routinen-adr. aus stack in 
Dold c8de st routad-1 2 /routad’ Laden 
oolf c501I Ld e1(1) 
09021 c8db st routad 
0023 c501 Id @a1(1) /ptr 3 aus stack laden 
0025 37 xpah 3 
20026 c501 Ld @e1(1) 
0028 33 xpal 3 
0029 c591 Ltd @1(1) /ptr 2 aus stack laden 
202b 36 xpah 2 
®02c c501 (td e1(1) 
DD2e 32 xpal 2 
002f c591 Ld e1(1) /(ptr 1) aus stack in zwischen- 
©0831 c8c4 st ptr-1 /speicher 
2033 c591 ld e1(1) 
0035 c8c1I st ptr 
0037 0501 Id e1(1) /s-reg. aus stack laden 
0039 ©7 cas 
003a c591 Id e1(1) /e-reg. aus stack laden 
003c 901 xae 
o03d c501 Ld el) /(ac) aus stack in zwischenspeicher 
DO3Tf c8b8 st ac 


ld ptr=-1 
xpah 1 

st stakpt-1 
Ld ptr 
xpal 1 

st stakpt 
dld stkeff 
Id ac 

xppc 3 

ne bush 


mp start 
82: 


Ld stakpt 
xpal 3 

st ptr 

Ld stakpt-1 
xpah 3 

st ptr-1 


/aktuellen stackpointerstand in 
/’stkpt’ laden und ptr 1 aus 
/zwischenspeicher laden 


/stackfuellstandszeiger up to date 
/ac aus zwischenspeicher laden 
/ruecksprung in verlassenes programm 
/notwendig (s.text) 


/’ nilfs-Jump’ 

/dito 

/status in stack ablegen 

/(ac) in zwischenspeicher ablegen 


/(ptr 3) in zwischenspeicher und 
ptr 3 als stackpointer laden 


Ldi L(stakpt) 1) in stack ablegen und 


xpal 1 
st @-4(3) 


(di n(stakpt) 


xpal 2 


ptr 1 als rampointer laden 


/(e) in stack ablegen 
/(sr) in stack ablegen 
/(ac) aus zwischenspeicher in stack 


/(ptr 2) in stack ablegen 


/(ptr 3) aus zwischenspeicher 
/holen, in stack ablegen 


/routinenadr. aus "’routad’ in 
/stack ablegen 

/und ptr 3 mit routinenadr. Laden, 
/gleichzeitig aktuellen stack- 


/pointerstand (aus ptr 3) in 
/’ stkpt’ ablegen. 


/fuellstandszaehler - up to date 
/mit eingestellter tiefe vergleichen 
/ stack-full’-flag setzen 


/subroutine anspringen 


.page ' kommando-schleiTfe’ 

‚local 

start; 
DBal c4Ad®® Ldi L(diepL) /ptr 1 zur adressierung des 
90a} 31 xpal 1 /aisplay und keyboard laden 
DDa4 c497 Ldi n(displ) 


xpah 1 

0047 c4e® Ldi L(stkbse) /ptr 2 als ram-pointer laden 
xpal 2 

2daa c4of Ldi h(stkbse) 
xpah 2 

Dad cH2f Ldi L(tap!) /ptr 3 auf tabelle ’..elbug’ 


Waf 33 xpal 3 
POb® c4p1 Ldi h(tap1) 


®0b2 37 xpah 3 
DOb3 c4d8 Ldi ©8 /zaehler laden 
DOb5 cadb . @b(2) 
: 
D0b7 c701 Ld 8@1(3 /’.,elbug’ an display 


809 cd 4 st e1(1) _ 
OObb ba®b dld ®b(2) 
jnz $1 /tertig ? 
DOpf c4da Ldi I(lLdkp)-1 
B8c1 cald st x’ id(2) 
®9c3 c4®2 Ldi n(Ldkb) 
2905 calic st x’ic(2 


®9c7 c48® js 3(push /\dkb, ueber stack, anspringen 
00c9 37c4 | 

o0chb 5533 

Bocd 3T 

ODce c4H8B® Ldi x’ 89 /’.*’ an display 3-7 


/display 1 Loeschen 
/keyboard gesamtes byte, holen 


2Ode @©1 xae 
oodf 4 Lde 
D0ed e4ed xri x’ eD =? 
@Dde2 9853 jz modify 
DDeh4 4 Lde 
@ve5 e4fd xri x’ To 
o0e7 9c07 jnz #2 [= »t1o0? 
DDe9 c4d1 js 3(run) 
@Veb 37c4 
OVed 2933 
Def 31 
$2:; 
ooTtO 40 Lde 
0011 e4d® xri x’ do [= do ? 
0013 9c07 jnz $3 
@of3 c403 js 3(subtr) 
2OO17 37c4 
0019 ea33 
oofpb 3f 
93; 


BOfd e4c® 
off 9c07 
D101 c4922 
28193 37c4 
0105 133 
0107 3f 


D1D8 40 

201909 e4bD 
D1Db 9cD07 
D1IDd c495 
B1of 37c4 
0111 4933 
0113 3f 


0114 40 

0115 e4a® 
®117 9c88 
0119 c4o4 
o11b 37c4 
D11id 3533 
o11f 37 


0137 c45c 
©139 c905 
013 c454 
D13d c996 
013f c43e 


xri x’ co [ = x’co® ? 2 
inz $4 

js 3(kass) 
$4: 

Lde 

xri x’ b® [= x’? 

jinz #5 

is 3(transf) 
85: 

Lde 

xri x’ a® [= x’ad? 

jnz start 69 A 

js 3(cpu) 

/keine kommando-taste 

.page ’ tabeller’ 
tab: / TI=-segm.-code 1-f (O=3f=tap-1) 
‚byte 06,x’50,x’4f,x’66,x’ 6d,x’ 74,07 


«byte x’ 7f,x’6f,x’ 77,x° 70,x’58,x’ 5e,x’ 79,x° 71 


tab: / T=-segm.-code ’ „.elbug’ 
byte @9,x’ 3d,x’ 1c,x’ 7c,x’ 38,x? 79,x’ 80,x’ 80 


«page % modify-kommando’ 


[di x’ Sc /’mo’ an display 


1) 
(di L(gethex)-1 


st x’ 1d(2) 


xppc 3 /’ adr’ von keyboard holen 
$1: | 

td 1(2) /ptr 3 auf *adr* stellen 
xpal 3 

(ld 2(2) 

xpanh 

Ld ©(3 / (adr) nolen 

st ®(2 

Ldi L(putnex)-1 

st x’ 1d(2 

is 3(push / adr und (adr) auf display anzeigen 


(di L(ldkb)-1 


st x’ 1d(2) 

ns /eine taste von kb holen 

Ld 2 

xpal 3 /eptr 3 wieder auf ’ adr’ 

\d 2(2) 

xpah 3 

Ld 8(2) /gesamtes byte resp.taste holen 
ne / = ’up’-taste ? 

jz $2 

xri x’ 80 /byte wieder herstellen 

xri x? / = 'down’-taste ? 

Inz $4 

Id @-1(3) /ptr 3 decrementieren 

Jmp $3 
a e1(3) /ptr 3 incrementieren 

xpal 3 

st 1(2) / (ptr 3) in ram aufbewahren 
xpah 3 

st 2(2) 

jmp $1 

Ld ar / T=-segm.-code fuer erste taste 
st o(1 /an display 1 geben 

= as /display ® Loeschen 

S = 

Ld 9(2) /binaerwert der taste 

rr /ıin bit 4-7 e 

rr 

rr 

rr 


xae 
js 3(push) / 2. hex.-taste abfragen 


xpal 3 /ptr 3 wieder auf "adr? stellen 


ore /byte zusammenstellen und 


o19d 
o19f 


0121 
1a 


D1a5 c 


o01a7 
D1a9 
Olab 
Olad 
olaf 
®1b1 
01b3 
®1b4 
®1b6 
®1b8 
0169 
®1bb 
®1bc 
®1be 
oibf 
®1c1 
®1c3 
®1c5 
®1c7 
®1c9 
®ica 
®ilcc 
Dice 
®1d® 


@1d1 
®1d3 
0104 


®1d6 
©0148 
01d9 
®O1da 
Oldb 
o1dd 


o1ldf 
O1e1 
o1e2 
Ole4 


®1e6 
O1e8 
Dlea 
Olec 


Olee 
o1fo 
o1f2 


c215 
cao9 
c416 


st 0(3) 
jmp $1 


«page 


‚local 


st x’ 1d(2 
js 3(push 


st 

xPppc 3 

Ld 1(2) 

xpal 3 

Ld 2(2) 

xpah 3 

Id e-1(3) 
Ldi x’ 50 

st 9(1) 
Ldi x’ Ic 

st -1(1) 


xppc 3 
js 3(stack) 


‚local 
.page 
Ldbyte: 

La x’ 15(2) 
sr 

. x’ 14(2) 


Lgi x" ff 
xae 


(di w ft 


xae 
Ld x? 14(2) 
st 10(2) 


$3; 
did 10(2) 
jnz $3 


Ld x’ 15(2) 
st 9(2) 
(di 22 


/ın "adr’ ablegen 15 


9% run-kommando’ 


//rW an display 6,7 


5(1) 
Ldi L(getnex)-1 


/startadr. von keyboard holen 


tdi L(ldkb)-1 /auf beliebige taste warten 
x’ 1d(2) 


/startadr. in ptr 3 


/startadr.-1 
/rw an display 92,1 


/user-programm anspringen 
/bei ruecksprung aus user-programm 


[4 


/routine: 1 byte von kassette holen 


/speed:2 in ram 


/stopbit ausgeben 
/auf startbit warten 


/speed/2 kopieren 


/ 1/2 vit delay 
/bit-zaenler laden 


/speed kopieren 
/diy 114 us (sc/mp 1) 


o1r4 8foo 


®1f6 ba®9 
o1f8 9cfc 
DO1fa 19 

oO1fb ba®8 
o1lfda Icef 
off c215 
0201 ca®9 


0203 ba99 
08205 9Ictc 


8207 4 


©0208 
0209 


020b 
o20d 
®20e 
©0210 


0211 
0213 
0214 
0216 
0217 
0219 
o21a 
®21c 


02 1d 
ı o21f 


0221 


0223 
_@225 
0227 
0229 
®22b 


D22cC 
oO22e 
0230 


0232 
0234 
0236 
0237 
0239 
023a 


®23c 
O23e 


p23f 


3f 
90c6 


c414 
33 
c4o® 
37 


c4DA4 
31 
co? 
35 
c4e® 
32 
c4wof 
36 


c 108 
Yufc 
8fle 
c 108 
ca®d8 
d4of 
ca®9 
© 1 


c 1908 
9402 
o%ofa 


8fle 
c41f 
31 
c4o1 
35 
c 180 


ca®7 
3f 


c406 


nn 0) 

did 9(2) /speed herunterzaenlen 

jnz $5 | 

sio /bit uebernenmen 

did 8(2) 

jinz $4 /8 bit uebernommen? 

Ld x’ 15(2) 

st 9(2) 
$6: 

did 9(2) /speed herunterzaehlen (1 x = 66 us) 
jinz %6 FR 1) 

Lde /fertiges is in ac laden 
xppc 3 /ruecksprung 

jmp Ldbyte /fuer erneuten ansprung 
.page 'routine load keyboard’ 
‚Local 


Ldkb: 
Ldi L(pull)-1 /ptr 3 vorbereiten 


xpal 3 

Ldi h(pultl) 
xpah 3 
Ldkb1; 


/\abel zum ansprung ohne stack 
Ldi L(dispt)+1 


xpal 

Ldi h{diepL) /eptr 1 und ptr 2 vorbereiten 
xpah 
Ldi L(stkbse) 
xpal 2 

Ldi n(stkbse) 
on 2 

(dl &(1) 


/auf tastendruck warten 
/entprellzeit - ca. 30 ms 


/keyboard-ausgang (gesamt) in ram 
Ze AnaeRewer! der taste in ram und 
n e 


/auf loslassen der taste warten 


dly 3® 

tdi L(tap)-1 
xpal 1 

ar tab) 


ah 
10 al 


st 7(2) 
xppc 3 


/enprellzeit 


/T-segm.-code holen 


/in ram ablegen 
ruecksprung 


.page 'routine gethex’ 
‚Local 
getnhex; 


tdi L(dispL)+6 


xpal 1 
Ldi n(displ) 


/str 1 auf display 6 stellen 


xpanh 1 
Ldi L(stkbse)+7 


xpal 2 

Ldi n(stkbse) 
xpah 2 

Ldi ®4 

st -7(2) 


1; 

Ldi L(pusn)-1 
xpal 3 

Ldi h(push) 
xpah 3 

Ldi L(Ldkb)=-1 
st -88(3) 

Ldi n(Ldkb) 
st -89(3) 
xppc 3 

Ldi L(stkbse) 
xpal 3 

L\di n(stkbse) 


jspull; 
js 3(pult) 


/ptr 2 auf stack-base + 7 


/tastenzaehler laden 


/’ ldkb? (ueber stack) anspringen 
/ptr 3 jetzt ram-pointer 


/ 7=-segm.-code holen 
/auf display 5 (4,3,2) schreiben 


/alle display-stellen unterhalb 
/loeschen 


/binaer-wert der taste in ram-tabelle 


/4 tasten? 
/’.* an display 0,1 


/higher byte zusammenstellen 


/lower byte zusammenstellen 


/nilfslabel zum * trittbrettfahren’ 
/ueber ’pull? zurueck ins hauptprogra 


®29e 
D2a® 


®2a1 
®2a3 
O2at 
®2a6 
®2a7 
D2a9 
O2aa 
®2ac 
o2ad 
o2af 
®2b® 
®2b2 
®2b3 
02b5 


02b7 
®2b9 
®2bb 
®2bd 
O2bf 
®2c® 
®2c 1 
®2c2 
®2c3 
®2c5 
02c7 
02c9 
®2cb 
®2cc 
®2ce 
®2ct 
®2d1 


®2d3 
0245 
0246 


0208 < 


D2da 
®2dc 
®2de 
B2e® 
®2e 1 
o2e3 
O2e4 
D2e6 


®2e8 


O2ea 


®2ec 
D2ee 
8210 


.page 9’ routine puthex’ 
.local 
puthex: 


Ldi ee) 
xpal 3 /ptr 3 als fixen ram-pointer laden 
= Reken 


101 "ulstkoee) 
xpal /ptr 2 u. 1 fuer autoindexierte 
Ldi "n{stköse) Vedras s1chung vorbereiten 


xpa 
Ldi N leipgeigs 


xpal 1 

Ldi h(stkbse) 

xpah 1 

Ldi ®3 /byte-zaehler laden 

st Of(3) 
$1; 

Ld ©(2) /erstes (naechstes) byte holen 
ani of /bit 9-3 alleine 

st \ /in ram ablegen 

Id e1(2 /gleiches byte wieder holen 

sr 

sr /bit 4-7 

sr 

sr 

st e1(1) /in naechste ram-adresse 

dld of(3) 

jnz / 3 byte zerlegt? 

Ldi L(tab)-1 

xpal 1 /ptr 1 fuer indirekte adressierung 
Ldi n(tab) /vorbereiten 

xpah 

Ldi 06 /hex-zeichen-zaenler laden 

st of(3) 
$2:; 

Ltd 81(2) /erstes (naechstes) halbe byte holen 


xae 
Ld -128(1) / T=-segm.-code holen 


st 5(2) /in ram zwischenspeichern 
dld o@f(3) 
nz $2 / 6 stellen fertig? 
Ldi L(displ) 
xpal 1 /ptr 1 auf display stellen 
(di n(dispL) 
xpan 1 
Ldi 06 /zaehler Laden 
Ph of(3) 
.“. | /. T-segm.-code 
st @1 /an display 0-5 


dld or) 
nz $3 /tertig? 
jmp jspull Teer“ hilfslabel nacn pull 


st I 
js 3 


Adi x’ 5f 
st 9(1) 
Ldi x’ 5e 
st -1(1) 
Ld 8(2) 
xri x’ eo 


jnz 

Ldi x’54 
st 9(1) 
Ldi x? 5c 
st -1(1) 


push) 


' kassetten-routiner? 


/’ca® an display 6,7 


/stopbpit ausgeben 


/flag "adr. von kassette? setzen 
/auf taste warten 


/ "ad! an display ®,1 


/taste "modify? ? 
/'mo’ an display ®,1 


tdi L(getnex)-1 


st x’ 1d(2) 


st x’ 15(2) 


/ 'speed’? von keyboard holen 


Ldi L(ldkb)-1 


st x’ 1d(2) 


xppc 3 
ldi x’ 5f 
st 2(1) 
Ldi x’ 5e 
a. -1(1) 


$1: 
L\d 8(2) 


xri x’ 80 


jz kassup 


/auf taste warten 


/’ad’ an display 9,1 


[taste ’up’ ? 


Ldi L(getnex)-1 


st x’ 1d(2) 


jmp kassup 
$2: 


/anfangsadresse von kb holen 


/end-adrese holen 


/auf taste warten 
/taste !up ? 


/flag "adressen von kb? setzen 
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20 


xri x’ 80 

xri x’ 90 /taste ’down! ? 

jz $3 

jmp jsstak /wenn andere taste: ’..elbug’ 


js 3(kassdo) 


kassup: /routine: laden von kassette in ram 


Ldi x’ Ic /’ up’ an display ®,1 


xpal 3 

Ldi n(Ldbyte) 
xpah 3 

Ld ©(2) 

jz $1 /l\ade-adresse von kassette? 
xppc 3 /ladeadresse, higher byte, 
st ©c(2) 

xppc 5 
st ©b(2) 
ne /stop-adresse, higher byte, 

st 2(2 

xppce 3 /lower byte von kassette holen 
st 1(2) 


/lower byte, 


xppc 3 / % byte von kassette ignorieren 


Ldi 32 /block-lLaengenzaehler laden 
st 6(2) /ram-byte fuer checksumme Loeschen 


Ld ®b(2) /ptr 1 auf erste (naechste) Lade- 
xpal 1 /adresse stellen 


/daten-byte von kassette holen und 
) /ın lade-adresse ablegen 
2 /cneck-summe bilden 


jinz $4 /stopadresse erreicht? 


xppc 3 /checksumme von kassette holen 
xor 6(2) /mit eigener checksumme identisch? 


®3ac 9c21 - jnz error a. 


jsstak; /nilfs-label (befehls-byte sparen) 
D3ae c4oaf js 3(stack) /ruecksprung ? ..elbug’ 
03bD® 37c4 
®3b2 Tf33 
0304 3f 
$4: 
0305 ©6 csa / cy/i (von checksumme) in e retten 
20366 ©1 xae 
03b7 ®2 ccl 
®3b8 c20b Ld ©b(2) 
®3pa f4o1 adi ®1 /ptr 1 (ueber page-grenze hinweg), 
®3bc cadb st Ob(2 /incrementieren 
D3be c29c Id ©c (2 
03c® FA adi /wegen uebertrag (cy/L) 
®3c2 cadc st ©c(2) 
D3c4 ko Lde / ey/l von chnecksumme zurueck in sr 
03c5 ®©7 cas 
0306 bad5 did 5(2) /block-laenge erreicht? 
®3c8 9cc8 jnz # 
®3ca 3f xppc 3 /checksumme von kassette holen 
®3chb 8206 xor 6(2) /uebereinstimmung? 
®3cd 98ba jz $2 
error: /? error’ an display 
®3cf c491 Ldi L(dispL)+1 
®3d1 31 41 


xpa 
®3d2 c407 Ldi h(dispL) 
n 


®3e9 YOfe jmp $5 /tote schleife 
.page 9’ subtraktion’ 
‚local 
subtr; 
O3eb c46d Ldi x’ 6d /’sh an display 6,7 


@3rf1 c%05 st 5(1) 
®83f3 c43e Ldi L(getnex)-1 
03f5 cald st x’id(2 


®317 c420 s 3(push /minuend holen 
0319 37c4 

®3fb 5533 

oO3fa 3f 

®O3fe c44d Ldi x’ 40 /’-'" an display 19 


O46b 32 


Ld 2(2) 
st x’ 14(2) 
Ld 1(2) 
st x? 13(2) 
xppc 3 


b)-1 
) 


/minuend in ram ablegen 


/subtrahend holen 
wegen 2=er komplement 


/subtraktion 


/auf beliebige taste warten 


Ldi L(puthex)-1 


st x’ 1d(2 
js 3(push 


xpal 2 


/sifferenz an display 


/’='" an display 6 


/tote schleife 
! cpu-register’ 


/’cp’ an display 


1 
tdi L(getnex)-1 


/startadresse user-programm holen 


/startadresse umladen 


/stopadresse holen 


/eptr 1 auf stopadresse 


/xppce 3 (=x?3f) in stopadresse 
gr 


in routad Laden 


/ptr 2 zum ansprung des user- 
/programms vorbereiten 


22 


D46c c6ff Ld e-1(2) 

D46e c455 Ldi L(pusn)-1 /ptr 3, fuer den ruecksprung 
0470 33 xpal 3 /nach "pusn’ vorbereiten 
0471 3e xppc 2 /user-programm-ansprung 


0472 c4e® Ldi ne /etr 2 wieder als ram-pointer Laden 
0474 32 xpal 2 

0475 c4of Ldi HLScKDER) 

o477 36 xpah 2 

478 c4d5 Ldi L(stkbse)-11 

D47a calf st x’1f(2) / *stkpt’ um eine etage verfaelschen 
Oh7c c4pa Ldi L(Ldkb)-1 

O4Te cald st x’ 1d(2) 

O48D c4®2 Ldi h(Ldkb) 

®482 calc st x’1c(2 


o484 c49D® js 3(push /tastendruck abwarten 
O486 37c4 

Du88 5533 

48a 3f 

O48b c208 Ld 8(2) /keyboard-byte in @ 
®u48d ©1 xae 


O48e c4ad® Ldi L(putnex)-1 

DO498 cald st x’1d(2) /’routad’ mit puthex-1 Laden 
0492 c4®1 Ldi L(dispL)+1 

o494 31 xpal 1 /ptr 1 wieder auf display 
®495 c487 Ldi n(dispt) 

0497 35 xpan 1 


498 40 Lde 

0499 e4fa xri x fa /taste !a ? 

D49b 9816 jz $2 

Ou4Id 4B Lde 

Olu9e e4fe xri x’ fe [taste !e'! ? 

O4a® 9815 jz 

O4a2 40 Lde 

Oba3 e4f5 xrixtt5 [taste ’5° ? (fuer sr) 

D4a5 9814 jz $4 

©4a7 40 Lde 

Oha8 edfi xriyfi /taste !® ? 

Oh4aa 9813 jz $5 

O4ac oO Lde 

O4ad e4f2 xrix’f2 [taste !2 ? 

@h4af 9815 Er %6 

Ob! 9obf „jur 41 j 
2; 

®4b3 c2ff Ld -1(2) / (ac) aus stack holen 

O4b5 Mic ‚je $8 
3: 

0467 c2fe Ld -2(2) / (e) aus stack holen 

469 9918 u $8 

O4bb c2fd Id -3(2) / (sr) aus stack holen 

Ohbd 9014 „= $8 

Ohpf c2fc Ld -4(2) 

®4c1 91 xae 

D4c2 c2fb Ld -5(2) / (ptr 1) aus stack holen 


Duck 9005 jmp $7 
| $6 


®4c6 c2fa 
D®4c8 ©1 
®4c9 c2T9 


B4cb ca®2 
Oucd 40 
O4ce ca®1 
O4do 3f 
®4d1 99009 


®4d3 ca®1 
0445 3f 

Ou4d6 c4OD 
0448 c9%03 
Ohda c90d4 


Ohdc c4DdO 
Ohde c9DD 
oh4eo cy9ff 
Dh4e2 Yobcd 


Dhe4 c45e 
Oh4e6 CcIOD 
oheß c45c 
O4ea c9Yff 
Dh4ec c20b 
DO4se 31 
O4ef c20c 
o4f1 35 
o4f2 c4d7 
Dufh 33 
DO4f5 c405 
ohf7 37 
DuHTB c20c 
o4fa 3f 
Ohfb c2Db 
Ohfa 3f 
O4fe c202 


Ld -6(2) 


xpah 1 


(di L(bytout)-1 

xpal 3 

Ldi n(bytout) 
h 3 


xppc 3 
Ld @b(2) 
xppc 3 
Ld 2(2) 


xppc 3 
xpah 1 
xor 2(2) 


24 
/ (ptr 2) aus stack holen 


/register-inhalte fuer putnex 
umladen 


/putnex-ansprung 


/register-inhalte umladen 
/puthex-ansprung 


/restliches display loeschen 


/sprung nacn #1 (ueber $11) 
'" ausgabe an kassette’ 


/*"do’ an display 2,1 


/ptr 1 auf anfangs-Lade-adresse 


/ptr 3 auf byte-ausgaberoutine 


/higher byte anfangs-ladeadresse 
/an kassette 


/lower byte 
/nigher byte end-adresse 
/lower byte 


/block-lLaengen-zaenler laden 
/ram-byte fuer checksumme lLoeschen 
/erstes (naechstes) datenbyte holen 
/checksumme bilden 


/datenbyte an kassette ausgeben 


/ptr 1 = end-adresse ? 


xae 

Lde 

xor 2(2) 

xpan 1 

Lde 

inz $3 

xpal 1 

xor 1(2) 

jz $4 

xor 1(2) 

xpal 1 
$3: 

csa / ey/l (von checksumme) in e retten 
xae 

ccl 

xpal 1 /petr 1 ueber page-grenze 
adi ©1 /hinweg incrementieren 
xpal 1 

xpah 1 

adi ®0 

xpah 1 

Lde 

cas / cy/l zurueck 

dld 5(2) /block fertig ? 

jinz $2 

Ld 6(2) 

xppc 3 /checksumme an kassette 
jmp $1 
$4: 

Ld 6(2) 

xppc 3 /checksumme an kascette 
jsstac;: 


js 3(stack) /ruecksprung: '...elbug’ 


.page 
‚Local 
transf: 


bLock-transfer-kommando’ 
Ldi x’ Tc /’oil’ an display 6,7 
st 6(1 

Ldi x’ 38 

st 5(1 

Ldi ee 

st x’ Id 


(2) | 
js 3(pusn /block-anfangs-adresse holen (ba) 


Ld 1(2) 

st x’ 10(2) 
Ld 2(2) 

st of(2) 
xpPpc 3 

Id 1(2) 

et oe(2) 
Id 2(2) 

et o©d(2) 
xppc 3 


/block-ende-adresse holen (be) 


/neue block-anfangs-adresse holen 
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B56T cuDa 


o5BHt c5ff 
051 cfff 
05c3 31 
05c4 e210 
®5cC6 ©1 


tdi L(ldkb)-1 / = ’nba’ 


st x’ iad(2) 
xppc 3 


xpal 1 

xor ®e(2) 

xae 

Lde 

xor De(2) 
41 


jz jsstac 
xor ®d(2) 
xpah 1 


\d oe(2) 
add ©c(2) 
xpal 3 
Ld ©d(2) 
add ®p(2) 
xpah 3 


$4: 


ld e-1(1) 
et @-1(3) 
xpal 1 

xor x’ 10(2) 
xae 


/auf beliebige taste wartenk 
/subtraktion: nba - ba 


/sifferenz = positiv? 
/etr 1 auf ’ba’ 


/ptr 3 auf "nba’ 


/block umladen 
/ptr 1 -1 
/ = be? 


/ (ptr 1 L) wieder herstellen 


/nilfslabel 
/ruecksprung ? ..elbug 
/ (ptr 1 n) wieder herstellen 


/ptr I +1 


/ptr 1 auf be 


/ptr 1 +1 
/ptr 3 auf be + nba - ba + 1 


/block umladen 


/ptr 1 = ba? 
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05c7 
85c8 
O5ca 
B5cb 
DOScc 
O5ce 


O5ct « 


@5d 1 
0543 
®5d5 
05d6 


0548 
D5da 
B5cdc 
O5de 
DO5eD 
@O5e 1 
o5e2 
B5e3 
o5e5 
o5e7 


O5e8 
oO5ea 
O5ec 
D5ee 


o5fo 
o5f2 
o5f4 
0515 
o5fr6 
o5T8 
0519 
o5fb 
O5fd 
o5fe 


Lde 
xor x’ 10(2) 


] 

xor ®f(2) 
xpah 1 
jmp $4 


‚local 
bytout; 


st 7(2) 

(di 11 

st 8(2) 

Ldi 90 

xae 

sio 

xae 

dld x’ 20(2) 


x’ 80 


dld 8(2) 
jinz $1 
xpPpc 3 

jmp bytout 
.end 
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/ 1 byte an kassette ausgeben 
/byte in ram aufbewahren 


/bit-zaenler laden 

/startbit ausgeben 

/toter befehl 

/toter befenl zum zeitausgleich 
/byte in e 

/aly 7®O us (sc/mp 1) 

/’ speed’ kopieren 

/speed decrementieren 
/bitausgabe 

/stopbit an byte an fuegen 
/wenn bitzaehler = ® ‚weiter 


ruecksprung 
/fuer erneuten ansprung 


4. Flußdiagramme 


Routine zum Abfragen 
des Keyboard 


Binärwert in RAM und E 
Ges-Byte in RAM 
7- Segm.-Code in RAM u. A 


Routine zum Umwandeln von 
3 binären Bytes in 6 Hex-Zeichen 
und Ausgabe an Display 


3 Byte in 6 halbe 
Byte umwandeln, 
in RAM ablegen 


DLD Zähler 


. 


ja 
en 


Halbe Bytes in 
7-Segm.-Code um- 
wandeln, in RAM ablegen 


DLD Zähler 


. 


ja 
EIETZ| 


7-Segm.-Code an 
Display @ - 6 


DLD Zähler 


<> nein 
ja 


Routine zum Umwandeln von 
4 Hex-Zeichen in 2 binäre Byte 


GETHEX 


7-Segm.-Code an 
Display, Binärwert 
in RAM umladen 


2 Byte zusammen- 
stellen, in RAM 
ablegen 


JS3 (PULL) 


Modify-Kommando 


MODIFY 


„MO an Display 


GETHEX (ADR Holen) 


Adresse 
inkrementieren 


Adresse 
dekrementieren 


Falls Hex- Taste: 
Binärwert rotieren, 
in E, 7-Segm.-Code 
an Dispia ! 


LDKB (2.He2) | 


Byte zusammenstellen 
in „ADR” ablegen 


Hexadezimele Substraktion 


„SH” an Display 


|  GETHEX (Minuend) 


GETHEX (Subrathend) 


: LDKB (beiiebige | 
| Taste) | 


PUTHEX (Diff.) | 
en Display) | 


Routine zum Holen eines Byte 
von der Kassette ö 


SPEED-Zähler 
herunterzählen 


DLD Bit-Zähler 


| ja 
SPEED-Zähler laden 
und herunterzählen 


DATA-Byte sus AC 
InE 


Kasstten-Routine zur Ausgabe 
von Daten an die Kasstte 


KASSDO 
„DO” an Display 


PTR 1 mit Start- 


Zähler mit 32 laden, 
‚Clear Checksumme, 
CCL 


Routine zur Ausgabs eines 
Byte an die Kasstte = 


Byte aus AC in RAM 
Bit-Zähler mit 11 
laden 


Daten-Byte in E 
SPEED -Zähler laden 


„I inBit7E 
(= Stopbit) 


DLD Bitzähler 


Kasetten-Kommando 
KASETTE 


„CA' an Display 


Stopbit ausgeben 
00 in Flag „‚Andere Adr” 


„AD” 
an Display 


SPEED 
ändern 


| 


GETHEX (Endadr) 


X'FF in 
Flag „andere 
Adresse” 


Kasetten-Routine zum Laden 
von der Kasette in den RAM- 
Speicher 


„UP” an Display 


Start- ujEndard. 
von Band holen in RAM 


32 in Zähler laden, 
Clear Checksumme 
CCL 


LOBYTE (= 1 Byte |} 
von Band holen) \ 


Checksumme von 
Band mit eigener 
vergleichen 


{PTR 1) 
= Endadr.? 


(PTR1)+1in RAM 


ja 
Checksummen 
vergleichen 


„ERROR an Display 
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Transfer von Datenblöcken 


TRANSF 


„ BL” an Display 
GETHEX (Block- 
Anfang = BA) 
GETHEX (Block- 
Ende = BE) 
GETHEX (Neuer 
Blockanfang = NBA) 
LDKB (Beliebige 
Taste) 


Subtraktion 
NBA - BA 


| 
| 


PTR 3 auf 
BE+NBA-BA+ 1 
stellen 


negativ 


PTR 1 auf BA 
PTR 3 auf NBA 
„ 


PTR 1 auf 
BE+1 
stellen 


LD@ 
STe 


10) 
103) 


=BE+1 nein 


LD@ 1(1) 
ste 1(3) 
PTR 1 


CPU-Register-Kommando 


* „CP an Display 


GETHEX (Startadr) 
|  GETHEX IStopadr) 1 


#1 ROUTAD 
X'3F in Stopadr 


Userprogr. mit 
PTR 2 anspringen 


STAKPT um eine 
Etage verfälschen 


Display 
Bu. 1 


löschen 


LDKB j 
(Taste in E} j 


ROUTAD und PTR 3 
1.PUTHEX vorbereiten 


(AC) aus 
STACK in 
RAM 


PUTHEX 


Display 
4u.5 
löschen 


PUTHEX 


& 
Be 
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5. Erläuterungen zu den 
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einzelnen Kommandos und Routinen 


Die Reihenfolge der Kommandos und Subroutinen innerhalb des ELBUG scheint zunächst etwas 
kunterbunt gemischt: dies hat aber einen bestimmten Zweck. 


Innerhalb des ersten K (0000 - O3FF) sind alle Subroutinen und die Kommandos MODIFY 
RUN und KASSUP (= Laden eines RAM-Bereichs von der Kassette) untergebracht. 

Dadurch ist eine hardwaremäßige Anwender-Konfiguration, bestehend aus Hex-I/O-Platine, 
CPU-Platine, einer 4k RAM-Platine und Kassetten-Interface möglich. Der Adressdekoder (von 
der Input-Unit-Platine) müßte noch auf einer kleinen Wire-Wrap-Platine (und eventuelle Inter- 
faces) aufgebaut werden. Mit dieser „, Minimal-Konfiguration ” ließe sich z.B. eine Maschinen- 
Steuerung realisieren. Auf dem „, großen System "' wird das notwendige Programm entwickelt 
getestet,auf die Kassettegeschrieben und dann „, vor Ort” in das kleine System geladen und 
mit RUN gestartet, kleine Änderungen wären mit MODIFY noch möglich. 


Die Stack-Routinen müssen sich nahe am Anfang des Programms befinden, weil diese zum 
Teil die PC-relative Adressierung benötigen. Durch den Page-Mechanismus wird das RAM von 
Adr. OFOO damit erreicht, so als ob es sich direkt unterhalb von Adr. OO00 befinden würde. 


Dadurch, daß die Subroutinen LDKB, GETHEX und PUTHEX innerhalb des gleichen 1/4-Be- 
reichs liegen (higher Byte der Adr. identisch = O2) können etliche Befehlsbyte eingespart wer- 
den. Näheres s. weiter unten. 


Kommandos,welche mit einem Rücksprung in die Kommandoschleife beendet sind, wurden 
nahe zusammengelegt, um mit einem kurzen Sprung {PC-relativ) zum langen Sprung (PTR- 
relativ) des Nachbarn zu gelangen. Dieses ‚, Trittbrett-Fahren '’ spart wieder einige Befehls- 
byte. 

Die ersten Befehle stellen eine sogenannte „, /nitialize ” Routine dar (bis „ PULL ''). Hier wer- 
den einige RAM-Byte definiert geladen. 

Anschließend wird über einen Hilfsiump die Kommando-Schleife angesprungen. Die Stack- 
Routinen werden dabei übersprungen. 


Die Kommando-Schleife hat folgende Aufgaben: 


- PTR 1 und PTR 2 laden 

- „ELBUG auf das Display schreiben (das Programm „, meldet sich”) 
- die Keyboard-Routine anspringen und je nach gedrückter Taste 

- die entsprechende Kommando-Routine anspringen. 


Bei Verlassen der Kommandoschleife enthält PTR 1 die EA des Display (Digit 1), PTR 2 ist als 
RAM-Pointer geladen (STKBSE) und auf dem Display steht „_...... (nicht sichtbar, weil unmit- 
telbar danach das betreffende Kommando auf das Kommando-Feld geschrieben wird. 


Die Stack-Routinen des ELBUG stellen einen Software-LIFO-Stack mit Abspzgeichern aller CPU-Re- 
gister-Inhalte, außer PC, dar, der für programmiertes oder asynchrones (INTERRUPT) Anspringen 
von Subroutinen, sequentiell oder geschachtelt (nested) verwendbar ist. Für die Funktion des 
ELBUG wäre diese Komplexität nicht erforderlich gewesen, ist aber für Anwender-Programme, 
besonders bei Interrupt-Verarbeitung sehr nützlich. 

Um diese Aufgaben zu erfüllen, ist zunächst ein RAM notwendig. Die LIFO-Funktion wird nicht so er- 
füllt, daß die aufeinanderfolgend abgespeicherten STATEN im RAM hinunter und hinauf gescho- 
ben werden, sondern ein Pointer wird als STACK-POINTER benutzt. Er zeigt jeweils auf die RAM- 
Adr. des zuletzt abgespeicherten STATUS. Damit ist aber (die nicht sehr üppige) Anzahl der Index- 
Register des SC/MP bereits auf 2 zusammengeschmolzen. 
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Abb. 1 Prinzipielle Arbeitsweise des Software-L!FO-Stack 


Subroutine 3 


Subroutine 
Subroutine 1.---- - -- 
Hauptprogramm 
Abb. 2 Verwendung des STACK in dem CPU-Kommando 
LDKB PUTHEX 
PUSH PULL PUSH PULL 
CPU-Komm. 
(ab $ 1) 
PUSH 
u CPU-Kommando en, User-Progr. 


(bis XPPC 2 
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Um den betreffenden Pointer außerhalb der Stack-Routinen frei verwenden zu können, wird sein: 
Inhalt vor Verlassen der Stack-Routinen in eine fixe RAM-Adr. geladen (STAKPT = OFFF und 
OFFE). In diese Adr. wird in der „ Initialize '’ die Adr. des Stack-Anfangs (Stack-Base = STKBSE) 
geschrieben. 

Bei Interrupt-Verarbeitung kann u.U. eine beachtliche Stack-Tiefe zusammenkommen, die dann 
entweder in unbeschaltete Adressbereiche oder in RAM-Bereiche: hineinläuft in welchen andere 
Daten oder Programme stehen. Um das zu vermeiden, wird ein Stack-Zähler (STKEFF) mitge- 
führt, der bei jeder Stack-Operation in- bzw. dekrementiert wird. (Updating). Außerdem ist ein 
über Moldify einzustellendes RAM-Byte vorgesehen (STDEEP) welches die maximal zulässige 
Stack-Tiefeenthält und bei jedem Status-Abspeichern mit der effektiv erreichten Tiefe (STKEFF) 
verglichen wird. Ist die maximale Tiefe erreicht, so wird ein „, Stack-Full "'-Flag, ein RAM-Byte 

(= STFULL = OFFB) mit X’FF geladen. 


Dieses Byte kann aus Anwender-Programmen abgefragt und falls gesetzt, ein weiterer Interrupt 
gesperrt werden. 
EinSTATUS benötigt 11 RAM-Byte. Die Einstellung der maximal zulässigen Tiefe (STDEEP) 
wird für jeden kompletten STATUS um 1 erhöht. 


Aus Abb. 1 ist ersichtlich daß 2 getrennte Stack-Routinen: PUSH und PULL notwendig sind. 
PUSH bewerkstelligt das Abspeichern der CPU-Registerinhalte in das RAM. Am Ende von PUSH 
befinden sich Befehle zum Ansprung der Subroutine. Deren Adresse (—1) muß vorher in die fixe 
RAM-Adr. „ ROUTAD ” (= Adr. der Routine) geschrieben werden. Dazu bedient man sich ®ent- 
weder der Tatsache, daß zum Ansprung von PUSH PTR 3 mit PUSH-—1 geladen werden muß 
und ROUTAD somit Pointer-(3)-relativ adressierbar ist (s. Listing Adr. 0255) soder eines bereits 
vorher geladenen RAM-Pointers (s. Listing Adr. OOBF). 


Hier können einige Befehlsbyte gespart werden, wenn der vorherige Inhalt von ROUTAD zum 
Teil identisch mit dem neuen erforderlichen Inhalt ist. Im ELBUG liegen die Subroutinen LDKB, 
GETHEX und PUTHEX auf der gleichen 1/4 PAGE. Das higner Adr.-Byte ist für alle 3 identisch 
(= 02). Wenn jetzt in ROUTAD noch die Adr. LDKB-1 steht und es soll GETEX angesprungen 
werden, so braucht das higher Byte von ROUTAD nicht mehr geladen zu werden (s. Listing Adr. 
O13F). 


Jede Subroutine selbst muß mit JS 3 (PULL) (= Makro, s. Assembler- Manual ) beendet sein, da- 
mit das Hauptprogramm (oder die Subroutine von der vorherigen „, Etage '’) erst angesprungen 
wird, wenn der betr. STATUS aus dem STACK wieder in die CPU-Reg. geladen ist. Dieses Zu- 
rück-Laden der CPU wird durch die Stack-Routine PULL besorgt. 


Falls in einer Subroutine PTR 3 nicht verwendet wird, kann sie mit XPPC 3 (anstatt ‚„, JS 3 
(PULL) ’’) beendet werden. PTR 3 zeigt ja dann noch auf das Ende von PUSH und hier befindet 
sich ein Sprung nach PULL. 


Ebenso kann eine gewisse Subroutine aus einer anderen Programm-Ebene zum 2. oder jedem wei- 
teren mal mit XPPC 3 angesprungen werden, wenn (PTR 3) inzwischen nicht verändert worden 
ist (s. Listing Adr. ©37A). 
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Dieser befehlssparende Ansprung ist möglich, weil PULL mit einem Sprung nach PUSH beendet 
ist und weil (ROUTAD) genau wie die CPU-Register auch in den Stack geschoben wird (= fast ein 
4. Index-Register des SC/MP). 


Die hier beschriebene Handhabung der Stack-Routinen hat natürlich volle Gültigkeit auch für 
Anwender-Programme. Falls in diesen eine Interrupt-Verarbeitung vorgesehen ist, muß dieser so- 
lange gesperrt bleiben, bis die o.a. organisatorischen Aufgaben erledigt sind (PTR 3 auf PUSH-1 
stellen und Subroutinenadresse in ROUTAD laden). Nach Freigabe wird dann: das durch Interrupt 
ausgelöste XPPC 3 wirksam. Bei mehreren Interrupt-Eingängen muß noch eine kleine Erkennungs- 
Software (s. ELEKTOR) verwirklicht werden. 

Zu den anderen Routinen und Kommandos ist eigentlich nicht mehr viel zu sagen. Alles wesent- 
liche geht aus dem Listing, den Flußdiagrammen und der RAM-Tabelle hervor. 

Nach PUSH stehen dem Anwender a/le 7 Register das SC/MP zur Verfügung; sie können, je nach 
Bedarf neu geladen werden. 


Innerhalb des ELBUG werden die Routinen bis maximal zu einer 2-fachen Verschachtelung be- 
nutzt, sodaß das RAM von Adr. OFC9 abwärts frei zur Verfügung steht. Stack-Routinen, Komman- 
do-Schleife und alle Kommandos befinden sich auf Hauptprogramm-Ebene, die Subroutinen 
LDKB, GETHEX und PUTHEX auf Ebene 1 und LDKB (von GETHEX aufgerufen) auf Ebene 2. 
LDBYTE und BYTOUT werden nicht über den Stack angesprungen. 


LDKB kann auch auf Hauptprogramm-Ebene, unter Verwendung des Ansprung-Labels LDKB1 
aufgerufen werden. Der Binär-Wert der Taste wird im E-Reg. und der 7-Segm.-Code im AC „, mit- 
gebracht "’. Ein wiederholtes Anspringen mit XPPC 3 (ohne Stack) ist leider nicht möglich, weil am 
Ende von LDKB (aus Speicher-Platzgründen) der Befehl JMP LDKB1 fehlt. 


GETHEX holt durch 4-maliges Anspringen (über den Stack) von LDKB,4 Hex-Tasten, schreibt die- 
se auf Display 5 bis 2, stellt die beiden Byte zusammen und speichert sie in Adr. ÖFE1 — OFE2. 


PUTHEX holt 3 Byte von Adr. ÖFE® bis BFE2, wandelt sie in 7-Segm.-Code und schreibt diesen 
auf Display ® — 5. Wenn aus Anwender-Programmen Hex-Zahlen auf das Display gebracht werden 
sollen, geht man so vor: 


- 3 (oder weniger) Byte in Adr. ÖFE® — QFE2 schreiben 
- PTR 3 auf PUSH--1 stellen, 
PTUHEX-1 in ROUTAD schreiben (PTR-3-relativ oder über einen bereits geladenen RAM- 
Pointer) und 
XPPC 3. 


Falls die gewünschte Zahl weniger als 6 Stellen hat, müssen anschließend die überflüssigen Display - 
Stellen gelöscht werden. 

Die Verwendung von GETHEX geschieht genauso, nur daß die 2 Byte nach dem Rücksprung von 
Adr. OFE1 — OFE2 geholt werden. 


Indem CPU-KOMMANDO ist ein kleiner Programmier-Trick enthalten. Das User-Programm wird mit 
XPPC 3 verlassen. PTR 3, der innerhalb dieses Programms nicht benutzt werden darf, wurde vor- 

her auf PUSH-1 gestellt. Dadurch wird der „ STATUS ’’ am betreffenden Punkt des User-Programms 
in den Stack geschoben. Anschließend springt das Programm nach „, $ 1 "-CPU-Kommando ($ 1 
wurde vorher von der CPU-Kommando-Software in ROUTAD geladen). 

Damit dieser „ Anwender-Status ” nicht verlorengeht, wird.die STACK-BASE jetzt um eine Etage 

„ verfälscht ”’. Dadurch werden die „ STATEN ’' der folgenden Routinen (LDKB und PTUHEX 

eine Etage tiefer in das RAM geschrieben und somit bleibt der „ Anwender-Status '’ erhalten. 

(Abb. 2) 


Die Verwendung der Kassetten-Routinen LDBYTE und BYTOUT aus Anwenderprogrammen ge- 
schieht mit ‚, JS 3 (LDBYTE)” oder „ JS 3 (BYTOUT)”. Ein wiederholter Ansprung mit einem 
einfachen XPPC 3 ist möglich. 


Für ein gleichzeitiges Arbeiten mit 2 Rekordern (notwendig beim Assemblieren, Listen bearbeiten 
usw) kann ein eigenes Programm nach dem Flußdiagramm erstellt werden. 


SPEED 
einstellen 


LDBYTE 
(ein Byte holen) 


genügend 
Byte geholt 


Daten 
verarbeiten 


BYTOUT 
(ein Byte ausgeben) 


Verwendung von LDBYTE und BYTOUT aus User-Programmen 


für simultanes Arbeiten mit 2 KassettenRekordern. 


